home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.03 Mar 87 / Pascal Graf3D / Graph3D Demo.R < prev    next >
Encoding:
Text File  |  1987-02-15  |  2.2 KB  |  182 lines  |  [TEXT/EDIT]
  1. *
  2. *   Resource lfile: "3D Demo".
  3. *
  4.  
  5. 3D.rsrc
  6. ????????
  7.  
  8. Type SB3D=STR 
  9.     ,0
  10. Graf3D Demo by Scott Berfield for MacTutor — Version 1.0
  11.  
  12.  
  13. Type FREF
  14.     ,15007
  15. APPL 0
  16.  
  17. Type BNDL
  18.     ,15007
  19. SB3D 0
  20. ICN#
  21. 0 15012
  22. FREF
  23. 0 15007
  24.  
  25. Type ALRT
  26.      ,128
  27. 65 95 305 415
  28. 128
  29. 5555
  30.  
  31.  
  32. Type DITL
  33.      ,128
  34. 5
  35. *   1
  36. BtnItem Enabled
  37. 205 120 237 200
  38. Gee Whiz!
  39.  
  40. *   2
  41. StatText Disabled
  42. 5 110 21 200
  43. Graf3D Demo
  44.  
  45. *   3
  46. StatText Disabled
  47. 30 25 66 285
  48. Created by Scott Berfield for Mactutor Magazine, October 29, 1986
  49.  
  50. *   4
  51. StatText Disabled
  52. 70 25 166 300
  53. Use the scroll bars to rotate about each axis. Whether the entire 3D world or just the tetrahedron is rotated is set from the Rotate What? menu. The default is to rotate the object.
  54.  
  55. *   5
  56. StatText Enabled
  57. 160 25 197 300
  58. Written in Lightspeed Pascal, for which I am truly thankful!
  59.  
  60. Type MENU
  61.      ,130
  62. Edit
  63. Undo/Z
  64. (-
  65. Cut/X
  66. Copy/C
  67. Paste/V
  68. Clear
  69.  
  70.      ,129
  71. File
  72. Quit/Q
  73.  
  74.      ,128
  75. \14
  76. About Graf3D Demo
  77. (-
  78.  
  79.      ,131
  80. Rotate What?
  81. Rotate Space /R
  82.  
  83.  
  84. Type WIND
  85.      ,32000
  86. Graf3D Demo
  87. 42 5 265 506
  88. Visible GoAway
  89. 0
  90. 0
  91.  
  92.      ,32001
  93. control window
  94. 270 5 338 506
  95. Visible GoAway
  96. 3
  97. 0
  98.  
  99.  
  100. Type CNTL
  101.      ,128
  102. X Rotation
  103. 25 10 41 160
  104. Visible
  105. 16
  106. 0
  107. 0 359 0
  108.  
  109.      ,129
  110. Y Rotation
  111. 25 175 41 325
  112. Visible
  113. 16
  114. 1
  115. 0 359 0
  116.  
  117.      ,130
  118. Z Rotation
  119. 25 340 41 490
  120. Visible
  121. 16
  122. 2
  123. 0 359 0
  124.  
  125.  
  126. Type ICN#=GNRL
  127.      ,15012
  128. .H
  129. FFFF FFF0 8000 0018
  130. 8000 801C BFFF FFDE
  131. BFFC BFDE BAB0 95DE
  132. B560 9ADE BAB0 8DDE
  133. B558 86DE BAAC 8DDE
  134. B556 9ADE BBFF BDDE
  135. B422 E2DE B822 21DE
  136. BFFF FFDE A042 105E
  137. C082 083E FFFF FFFE
  138. B555 55DE BBFF FEDE
  139. B7FF FFDE BFFF FFDE
  140. BFFF FFDE BFFF FF9E
  141. FFFF FF9E FFFF FFDE
  142. 800F E01E 8003 C01E
  143. FFFF FFFC 7FFF FFFC
  144. 4000 0038 7FFF FFF0
  145. *
  146. FFFF FFF0 FFFF FFF8
  147. FFFF FFFC FFFF FFFE
  148. FFFF FFFE FFFF FFFE
  149. FFFF FFFE FFFF FFFE
  150. FFFF FFFE FFFF FFFE
  151. FFFF FFFE FFFF FFFE
  152. FFFF FFFE FFFF FFFE
  153. FFFF FFFE FFFF FFFE
  154. FFFF FFFE FFFF FFFE
  155. FFFF FFFE FFFF FFFE
  156. FFFF FFFE FFFF FFFE
  157. FFFF FFFE FFFF FFFE
  158. FFFF FFFE FFFF FFFE
  159. FFFF FFFE FFFF FFFE
  160. FFFF FFFC 7FFF FFFC
  161. 7FFF FFF8 7FFF FFF0
  162.  
  163. Type ICON=GNRL
  164.      ,451
  165. .H
  166. FFFF FFF0 8000 0018
  167. 8000 801C BFFF FFDE
  168. BFFC FFDE BAB0 AADE
  169. B560 B5DE BAB0 9ADE
  170. B558 95DE BAAC 8ADE
  171. B556 955E BBFF BEDE
  172. B444 E3DE B844 21DE
  173. BFFF FFDE A084 105E
  174. C104 083E FFFF FFFE
  175. B555 55DE BBFF FEDE
  176. B7FF FFDE BFFF FFDE
  177. BFFF FFDE BFFF FF9E
  178. FFFF FF9E FFFF FFDE
  179. 801F C01E 8007 801E
  180. FFFF FFFC 7FFF FFFC
  181. 4000 0038 7FFF FFF0
  182.